home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abb.d64 / recipesaver (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  333 lines
  1. 25 REM             RECIPESAVER II
  2. 30 OPEN15,8,15
  3. 40 PRINT"[147][154]"
  4. 50 BL$="                                  "
  5. 52 C(1)=1:C(2)=13:C(3)=14
  6. 55 M$(1)="RECIPESAVER"
  7. 56 M$(3)=" (C)  1988 "
  8. 58 M$(2)=" JUNE 25TH "
  9. 60 POKE53280,0:POKE53281,0
  10. 70 DIMG$(100),AM$(100),W$(50)
  11. 75 XX=1:   :Y1=5:Y=1
  12. 77 FORE=1TO3
  13. 80 FORX=1TO11
  14. 85 X1=X*3+2
  15. 87 POKE646,6
  16. 90 GOSUB2700:PRINTTAB(X1+1);
  17. 95 POKE646,C(E)
  18. 100 PRINTMID$(M$(E),X,1)"";
  19. 110 NEXT
  20. 115 Y1=Y1+4
  21. 120 NEXT
  22. 130 Y=1: XX=15:Y1=Y1+4:X1=13:GOSUB2700
  23. 140 PRINTTAB(15)"LAMBERT KLEIN"
  24. 150 FORT=1TO2000:NEXT:PRINT"[147]
  25. 160 [153]"CONT";:[151] 9906[170]1,40
  26. 170 [153][163]11)"ABSSPC(              WAITSPC(FN"
  27. 180 [153][163]11)"ABSSPC( RECIPE SAVER WAITSPC(FN"
  28. 190 [153][163]11)"ABSSPC(              WAITSPC(FN"
  29. 200 [153]"CONT";
  30. 210 [129]X[178]1[164]40:[153]"TO";:[130]:
  31. 220 [153]" WAIT"[166]10)"GETSPC(     MENU     WAITSPC(GETCONT"[166]10); " WAIT";
  32. 240 [153]"CONT";: [129]X[178]1[164]40:[153]"TAB(";:[130]:
  33. 250 [153][166]12[170]OV)"CONT";
  34. 260 [129]X[178]1[164]16:[153]"TO";:[130]:[153]:[153][166]12[170]OV)"FN              ABS"
  35. 270 [153][166]12[170]OV)"FN    EWAITNTERCONT     ABS":[153][166]12[170]OV)"FN    SYSVWAITIEWCONT      ABS"
  36. 280 [153][166]12[170]OV)"FN    PWAITRINTCONT     ABS"
  37. 290 [153][166]12[170]OV)"FN    OPENLWAITOADCONT      ABS":[153][166]12[170]OV)"FN    SWAITAVECONT      ABS":
  38. 300 [153][166]12[170]OV)"FN    RWAITECIPES   CONTABS"
  39. 310 [153][166]12[170]OV)"FN    PRINT^WAITEDIT CONT    ABS":[153][166]12[170]OV)"FN    QWAITUIT      ABS":
  40. 320 [153][166]12[170]OV);
  41. 330 [153]"FN              ABS" :[153][166]12[170]OV);:[129]X[178]1[164]16:[153]"TAB(";:[130]
  42. 340 OV[178]0
  43. 350 R[178][195](RN$)
  44. 360 [139] [200](RN$,2)[178]".R"[167]RN$[178][201](RN$,R[171]2):R[178][195](RN$)
  45. 370 [139] [200](RN$,4)[178]"@:.R"[167]RN$[178][201](RN$,R[171]4):R[178][195](RN$)
  46. 380 [139]LI[178]0[167]LI[178]FL[170]7
  47. 390 [161]A$:[139]A$[178]""[167]390
  48. 400 [139]A$[178]"E"[167]490:
  49. 410 [139]A$[178]"V"[167]940
  50. 420 [139]A$[178]"P"[167]1370
  51. 430 [139]A$[178]"L"[167]1570
  52. 440 [139]A$[178]"S"[167]1750
  53. 450 [139]A$[178]"R"[167]2020
  54. 460 [139]A$[178]"^"[167]2310
  55. 470 [139]A$[178]"Q"[167][153]"LOAD":[160]15: [144]
  56. 480 [137]390
  57. 490 [153]"LOAD":XX[178]32:RN$[178]"":Y[178]7:X1[178]3:Y1[178]4
  58. 495 [151]10151[170]1,35:[151]646,6
  59. 500 [141]2700
  60. 505 [151]10151[170]1,32
  61. 520 :LI[178]0
  62. 525 XX[178]28:Y[178]3:X1[178]5:Y1[178]6:[141]2700
  63. 530 [153][163]X1[170]2);
  64. 540 [153]"RECIPE NAME: CONT":[153][163]X1[170]1);
  65. 580 [141]2740:RN$[178]A$
  66. 590 [139]RN$[178]""[167]160:
  67. 600 RR$[178]RN$
  68. 605 [129]CD[178]0[164]AR[170]3 :W$(CD)[178]"_":[130]   :AR[178]0
  69. 610 XX[178]37:Y[178]20:X1[178]0:Y1[178]1 :[141]2700
  70. 620 [153]"DEF"[163]X1[170]1)"LIST INGREDIENTS  'E' TO END CONT":X[178]1
  71. 630 [153]:[153]
  72. 640 [153][163]X1[170]2);
  73. 650 [153]"INGREDIENTWAIT OPEN";:[141]2740:G$(X)[178]A$:A$[178]"":[139]G$(X)[178]"E"[167]740
  74. 670 [153][163]X1[170]2);
  75. 680 [153]"LISTAMOUNTWAIT     CONT";:[141]2740:AM$(X)[178]A$:A$[178]"":
  76. 690 L1[178][195](G$(X)): [139]L1[177]LI[167]LI[178]L1:FL[178]LI
  77. 700 X[178]X[170]1:
  78. 710 [139]X[179][177]9[167]640
  79. 720 [153]"LOAD":  XX[178]37:Y[178]20:X1[178]0:Y1[178]1 :[141]2700
  80. 730 [137]640
  81. 740 [139]X[178]1[167]N[178]0:[137] 160
  82. 750 XX[178]26:Y[178]14:X1[178]7:Y1[178]3:[141]2700
  83. 760 [153]""[163]X1[170]2)" MIXING INGREDIENTS...SYS"
  84. 770 N[178]X[171]1          :[129]X[178]1[164]N:
  85. 780 [139][195](G$(X)) [179]LI  [167]G$(X)[178][199](160)[170]G$(X) :[137]780:
  86. 790 [130]:      [129]X[178]1[164]N::G$(X)[178]G$(X)[170]" "[170]AM$(X):
  87. 800 L1[178][195](G$(X)): [139]L1[177]LI[167]LI[178]L1
  88. 810 [130]
  89. 830 [141]2110:
  90. 890 [141]2700:[153]:[153][163]X1[170]1);
  91. 900 :[141]2610:  [153]"SYSSAVE (CONTY/NSYS) CONT";:
  92. 910 [161]A$:[139]A$[178]""[167]910
  93. 920 [139]A$[178]"Y"[167]1750
  94. 930 [153]"LOAD":[137]250
  95. 940 [153]"LOAD":            :N2[178]0:SC[178]0
  96. 950 [139]N[179][177]0[167]980
  97. 960 X1[178]9 :Y1[178]15:XX[178]17:Y[178]3 :[141]2700
  98. 970 [153]""[163]X1[170]1)"NOTHING TO VIEW :":[151] 9906[170]1,15: [141]2610:[137]160
  99. 980 XX[178]36:Y[178]21:X1[178]0:Y1[178]0 :[141]2700
  100. 990 FR$[178]""
  101. 1000 [129]RR[178]1[164][195](RR$)[170]6:FR$[178]FR$[170]"TO":[130]
  102. 1010 FS[178](19[171]([195](FR$)[173]2)):[139] FS[179]1[167]FS[178]1
  103. 1020 [153]"LIST"[166]FS);FR$:
  104. 1030 [153][166]FS)"INT  SYS"RR$"LIST  ABS"
  105. 1040 [153]""; [166]FS)FR$:[153]"CONT
  106. 1050 :FORX=1TON:PRINTTAB(3)SPC(SC)G$(X):N2=N2+1:IFN2=12THENGOSUB1320:
  107. 1060 NEXT
  108. 1070 W=37
  109. 1080 YM=AR*2+1
  110. 1090 X1=1:Y1=16:XX=34:Y=5:GOSUB2700
  111. 1100 PRINTTAB(X1+1)"TEMPERTURE[146][154] "TP$:PRINTTAB(X1+1)"[153]TIME[146]     [154]  ";TM$:
  112. 1110 PRINT" PRESS A KEY: [146]"
  113. 1120 GETA$:IFA$=""THEN1120
  114. 1125 YM=AR*2+1
  115. 1130 Y=YM:X1=0:Y1=22-Y:XX=37::GOSUB2700
  116. 1140 PRINT""TAB(X1+1);
  117. 1150 W=XX-2
  118. 1160 FORCD=0TOAR
  119. 1164 IFLEN(W$)+LEN(W$(CD))<255THENW$=W$+W$(CD):GOTO1168
  120. 1166 PRINTTAB(X1+1);:GOSUB2911:NEXT:GOTO1170
  121. 1168 NEXT:GOSUB2911
  122. 1170 REM
  123. 1280 PRINT:PRINTTAB(X1+2)" PRESS A KEY  RETURN  TO RE-VIEW "
  124. 1290 GETA$:IFA$=""THEN1290
  125. 1300 IFA$=CHR$(13)THEN940
  126. 1310 PRINT"[147]":GOTO160
  127. 1320 IFLI<17THEN1360
  128. 1330 PRINTTAB(3)"[158] PRESS A KEY TO CONTINUE: "
  129. 1340 GETA$:IFA$=""THEN1340
  130. 1350 SYS 9988:PRINT"":RETURN
  131. 1360 SC=20:PRINT"":RETURN
  132. 1370 IFN<>0THEN1420
  133. 1380 PRINT"[147]
  134. 1390 X1[178]8:Y1[178]15:XX[178]18:Y[178]3:[141]2700:[153]""[163]X1[170]1)"NOTHING TO PRINT: "
  135. 1400 [151] 9906[170]1,15:[141]2610:
  136. 1410 [137]160
  137. 1420 [159]4,4:[152]4:[152]4,RR$:[152]4:X[178]1
  138. 1422 NZ[178]N: [139]N[173]2[179][177][181](N[173]2)[167]NZ[178]NZ[171]1
  139. 1425 W[178]80
  140. 1426 LG[178](3[170]LI)
  141. 1428 [139]LG[178][177]40[167]1500
  142. 1429 TB[178][181]((40[171]LG)[173]2):[139]TB[179]1[167]TB[178]1
  143. 1435 [129]X[178]1[164]NZ [169]2
  144. 1475 :SP[178]40[171][195](G$(X))[171]TB:[139]SP[179]0[167]SP[178]0
  145. 1480 [152]4,[166]TB);G$(X);[166]SP);G$(X[170]1)
  146. 1485 [130]:[139]N[179][177]NZ [175]N[179][177]1 [167][152]4,[166]TB);G$(N)
  147. 1486 [137]1510
  148. 1500 TB[178](80[171]LG)[173]2:TB[178][181](TB):[139]TB[179]1[167]TB[178]0
  149. 1502 [129]X[178]1[164]N
  150. 1504 [152]4,[166]TB);G$(X)
  151. 1509 [130]
  152. 1510 :[152]4:[152]4
  153. 1520 [152]4,"TEMPERTURE "TP$:[152]4,"TIME       "TM$:[152]4
  154. 1530 [152]4,"COMMENTS:"
  155. 1534 [129]CD[178]0[164]AR
  156. 1536 [139][195](W$)[170][195](W$(CD))[179]255[167]W$[178]W$[170]W$(CD):[137]1538
  157. 1537 [141]1539:[130]:[137]1548
  158. 1538 [130]:[141]1541 :[137]1548
  159. 1539 [139][195](W$)[177]W[167]1541
  160. 1540 [152]4,W$:W$[178]"": [142]
  161. 1541 P[178]0 :[129]I[178]W[164]1[169][171]1
  162. 1542 [139]P[178]0[175][202](W$,I,1)[178]" "[167]P[178]I
  163. 1543 [139]P[178]0[175][202](W$,I,1)[178][199](160)[167]P[178]I
  164. 1544 [130]:H$[178][201](W$,[195](W$)[171]P)
  165. 1545 W$[178][200](W$,P):[152]4,W$:
  166. 1546 W$[178]H$:[141]1539
  167. 1547 W$[178]"":   [142]
  168. 1548 [160]4
  169. 1550 :[141]2610
  170. 1560 [153]"LOAD":[137]160
  171. 1570 X1[178]15:Y1[178]13:XX[178]22:Y[178]6:[151]10151[170]1,166:[141]2700:[153][163]X1[170]1);
  172. 1575 [151]10151[170]1,32
  173. 1590 X1[178]16:Y1[178]15:XX[178]20:Y[178]2:[141]2700:[153][163]X1[170]1);
  174. 1600 [153]"RECIPE NAMEWAITCONT":[153][163]X1[170]1):[141]2740:RN$[178]A$:RN$[178]"R."[170]RN$
  175. 1610 [139]RN$[178]"R."[167]RN$[178]"":[153]"LOAD":[137]  250
  176. 1620 [159]2,8,2,RN$[170]",S,R":C[178]0
  177. 1630 [141]2250
  178. 1640 [139]C[178]1[167][160]2:   :[137]250
  179. 1650 X[178]1
  180. 1660 [132]2,FL:[132]2,LI:[132]2,AR
  181. 1670 [132]2,RR$
  182. 1680 [132]2,G$(X):
  183. 1690 [139]ST [175] 64 [167] 1710
  184. 1700 X[178]X[170]1:[137]1680
  185. 1710 N[178]X[171](AR[170]3):  [160]2:[153]" DONE CONT"   :[141]2610
  186. 1720 [139]N[179]0[167]  250
  187. 1730 TP$[178]G$(N[170]1):TM$[178]G$(N[170]2):
  188. 1735 [129]CD[178]0[164]AR:W$(CD)[178]G$(N[170]3[170]CD):[130]
  189. 1740 [137]250
  190. 1750 :[153]"LOAD";
  191. 1760 [139]N[179][177]0[167]1800
  192. 1770 [153]"LOAD
  193. 1780 X1=9 :Y1=15:XX=17:Y=3 :GOSUB2700:PRINT""TAB(X1+1);
  194. 1790 :PRINT"NOTHING TO SAVE :":POKE 9906+1,10  :GOSUB2610:GOTO160
  195. 1800 IFRN$=""THENRN$=RR$
  196. 1810 IFLEFT$(RN$,2)="R."THENRN$=RIGHT$(RN$,LEN(RN$)-2)
  197. 1820 IFLEFT$(RN$,4)="@:R."THENRN$=RIGHT$(RN$,LEN(RN$)-4)
  198. 1830 :R=LEN(RN$)
  199. 1840 PRINT"    "RN$;:FORRV=1TOR+2  :PRINT"[157]";:NEXT:INPUTRN$
  200. 1850 RN$="R."+RN$:RN$=LEFT$(RN$,16)
  201. 1860 OPEN3,8,3,RN$+",S,W"
  202. 1870 Z=0:C=0
  203. 1880 GOSUB2250
  204. 1890 IFZ=1THENCLOSE3:GOTO2630
  205. 1900 IFC=1THENCLOSE3:GOTO   250
  206. 1910 PRINT#3,FL:PRINT#3,LI:   PRINT#3,AR
  207. 1920 PRINT#3,RR$
  208. 1930 FORX=1TON
  209. 1940 PRINT#3,G$(X)
  210. 1950 NEXT
  211. 1960 IFRR$=""THENRR$ =RIGHT$(RN$,LEN(RN$)-2)
  212. 1970 PRINT#3,TP$:PRINT#3,TM$:
  213. 1980 FORCD=0TOAR:
  214. 1982 IFW$(CD)=""THENW$(CD)="_"
  215. 1985 PRINT#3,W$(CD):NEXT
  216. 1990 CLOSE3:PRINT"[147]"
  217. 2000 GOSUB2610
  218. 2010 GOTO160
  219. 2020 PRINT"[147]"
  220. 2030 SYS 9747
  221. 2040 GOSUB2250:        IFC=1THENC=0:GOTO250
  222. 2050 PRINT:PRINT"[145]                           "
  223. 2060 OV=7
  224. 2070 REM
  225. 2080 GOSUB2250
  226. 2090 PRINT""
  227. 2100 GOTO250
  228. 2110 PRINT:PRINTTAB(X1+1)"TEMPERTURE[154]";:GOSUB2740:TP$=A$:IFTP$=""THENTP$="[164][164][164][164]"
  229. 2120 PRINT: PRINTTAB(X1+1)"[159]TIME[154]";:GOSUB2740:TM$=A$:IFTM$=""THENTM$="[164][164][164][164]"
  230. 2130 X1=0:Y1=0:XX=36:Y=17:GOSUB2700
  231. 2140 PRINTTAB(X+1);" COMMENTS: "
  232. 2145 PRINTTAB(X1+1)"  [158]\  TO END."
  233. 2150 W=80 :CD=0
  234. 2155 PRINTTAB(X1+1);
  235. 2160 GOSUB2740:W$=A$
  236. 2165 IFQ$=CHR$(13)THENW$=W$+CHR$(160)
  237. 2170 GOSUB2901
  238. 2180 IFW$(CD)=""THEN W$(CD)="_"
  239. 2185 IFQ$="\"THENRETURN
  240. 2187 AR=CD
  241. 2190 GOTO2160
  242. 2200 RETURN
  243. 2250 INPUT#15,DS,DS$,A,B:
  244. 2260 IFDS=<1THEN2300:
  245. 2265 GOSUB2610
  246. 2266 X1=5:XX=LEN(DS$)+2:Y1=11:Y=3:POKE646,7:GOSUB2700
  247. 2267 PRINTTAB(X1+1);
  248. 2270 PRINT"[150]";DS$"[154]" :C=1:POKE 9906+1,15:GOSUB2610
  249. 2280 IFDS=63THENZ=1 :RETURN
  250. 2290 Z=0:RETURN
  251. 2300 C=0:RETURN
  252. 2310 IFN<>0THEN2360
  253. 2320 PRINT"[147]
  254. 2330 X1[178]8 :Y1[178]15:XX[178]18:Y[178]3 :[153]"":[141]2700:[153]"CONT";
  255. 2340 [153]""[163]X1[170]1)"NOTHING TO EDIT:":[151] 9906[170]1,12:[141]2610:
  256. 2350 [137]160
  257. 2360 [153]"LOAD":[139]FL[178]0[167]FL[178]LI[171]7
  258. 2370 [153]"PRINT EDIT: "
  259. 2380 [153]"FREFREFREFREFREFREFRECONT"
  260. 2390 [143]
  261. 2400 [129]X[178]1[164]N
  262. 2410 [153]"LOADCONT  "G$(X)
  263. 2420 [133]"";G$(X)
  264. 2430 [130]
  265. 2440 [153]"PRINT ADD MORE INGREDIENTS?: Y/N "
  266. 2450 [161]A$:[139]A$[178]""[167]2450
  267. 2460 [139]A$[179][177]"Y"[167]2540:
  268. 2470 [153]"DEF 'E' TO END" :X[178]N
  269. 2480 C$[178]"":X[178]X[170]1:N[178]N[170]1  :[133]"OPENINGREDIENT";G$:[139]G$[178]"E"[167]N[178]N[171]1:[137]     2540
  270. 2490 [133]"AMOUNT";AM$
  271. 2500 L1[178][195](G$):[139]L1[177]FL[167]FL[178]L1
  272. 2510 [129]C[178]1[164] FL[171][195](G$)   :C$[178]C$[170][199](160):[130]    :G$(X)[178]C$[170]G$[170]" "[170]AM$:
  273. 2520 L1[178][195](G$):[139]L1[177]LI[167]LI[178]L1
  274. 2530 [137]2480
  275. 2540 :  [153]"LOADTEMP  ":[153]"PRINT  ";TP$:[133]"";TP$
  276. 2550 [153]"LOADTIME  ":[153]"  "TM$:[133]"";TM$
  277. 2560 [153]"LOADCOMENTS:":[153]"  "
  278. 2570 [129]CD[178]0[164]AR
  279. 2575 [151]19,65
  280. 2580 [153]"LOAD": [153]W$(CD) :[133]"CONT";W$(CD)
  281. 2590 [130]
  282. 2595 [151]19,0
  283. 2600 [153]"LOAD": [137]160
  284. 2610 [158] 9883
  285. 2620 [142]
  286. 2630 X1[178]11:Y1[178]17:XX[178]16:Y[178]3:[141]2700:[153]:[153][163]X1[170]2);
  287. 2640 [153]" REPLACE? WAIT Y/N"
  288. 2650 :[161]A$:[139]A$[178]""[167]2650
  289. 2660 [139]A$[179][177]"Y" [167] [153]"LOAD":[137] 160
  290. 2670 [141]2700:[153]:[153][163]X1[170]1)" SAVING... "
  291. 2680 [139][200](RN$,1)[179][177]"@"[167] RN$[178]"@:"[170]RN$:
  292. 2690 [137]1860
  293. 2700 [143] WINDOW
  294. 2705 [139]Y1[179]0[167]Y1[178]0
  295. 2706 [139]Y [179]0[167]Y [178]0
  296. 2710 [151]10190,X1:[151]10192,XX:[151]10191,Y1:[151]10193,Y
  297. 2720 [158] 9988
  298. 2730 [142]
  299. 2740 [151]198,0:A$[178]"":L[178]0:L2[178]0
  300. 2745 [158]10194
  301. 2750 [161]Q$:[139]Q$[178]""[167]2745
  302. 2760 [139]Q$[178]"\"[167][142]
  303. 2780 [139]Q$[178][199](13)[167][153]:[153][163]X1[170]1);:L2[178]0   :[142]
  304. 2790 Q[178][198](Q$[170][199](0))
  305. 2800 [139]L[178]0[167][139]Q[178]20[167]2750
  306. 2805 [139]L2[177](XX[171]2) [167][153]:[153][163]X1[170]1);:L2[178]0
  307. 2810 [139]L[178][177]80 [167] [142]
  308. 2820 [139]Q [178]20 [167]A$[178][200](A$,L[171]1):[153]" CMDCMD";:[158]10194:L[178]L[171]1:L2[178]L2[171]1
  309. 2830 [139]Q [179]32[167]2750
  310. 2840 [139]Q [177]95[167]2750
  311. 2850 [139]Q$[178]","[167]Q$[178]"'"
  312. 2860 [139]Q$[178]":"[167]Q$[178]"(null)":
  313. 2870 A$[178]A$[170]Q$:L[178][195](A$):L2[178]L2[170]1
  314. 2880 [153]Q$;:[158]10194
  315. 2890 [137]2750
  316. 2900 [142]
  317. 2901 [139][195](W$)[177]W[167]2903
  318. 2902 W$(CD)[178]W$:CD[178]CD[170]1:[142]
  319. 2903 P[178]0 :[129]I[178]W[164]1[169][171]1
  320. 2904 [139]P[178]0[175][202](W$,I,1)[178]" "[167]P[178]I
  321. 2905 [130]:H$[178][201](W$,[195](W$)[171]P)
  322. 2906 W$[178][200](W$,P)         :[141]2902
  323. 2907 W$[178]H$:[141] 2901:[142]
  324. 2911 [139][195](W$)[177]W[167]2913
  325. 2912 [153]W$:[153][163]X1[170]1);:W$[178]"": [142]
  326. 2913 P[178]0 :[129]I[178]W[164]1[169][171]1
  327. 2914 [139]P[178]0[175][202](W$,I,1)[178]" "[167]P[178]I
  328. 2915 [139]P[178]0[175][202](W$,I,1)[178][199](160)[167]P[178]I
  329. 2916 [130]:H$[178][201](W$,[195](W$)[171]P)
  330. 2917 W$[178][200](W$,P):[153]W$:[153][163]X1[170]1);:
  331. 2918 W$[178]H$:[141]2911
  332. 2919 W$[178]"":   [142]
  333.